home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 March / 64er_Magazin_94-03_1994_Markt__Technik_de_Side_A.d64 / giga-sedit 2.src (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  9KB  |  726 lines
  1. 100 ;
  2. 110 ;
  3. 120 ;
  4. 130 ;
  5. 140 ;    giga-ass - scrolledit v2
  6. 150 ;= = = = = = = = = = = = = = = = =
  7. 160 ;    coded by christian thrum
  8. 170 ;    (skywalker of sunbeam !)
  9. 180 ;      done in 1992/1993 !!
  10. 190 ;
  11. 200 ;
  12. 210 ;             christian thrum
  13. 220 ;             sophienstr. 14
  14. 230 ;             07743 jena
  15. 240 ;             tel: (03641)25958
  16. 250 ;
  17. 260 ;   finally giga-ass rules ...
  18. 270 ;   lets scratch the 'vis-ass'
  19. 280 ;         together !!!!
  20. 290 ;        (just kidding!)
  21. 300 ;
  22. 310 ;
  23. 320 ;
  24. 330 getpcloseaddy,val
  25. 340  mid$#val
  26. 350  (NULL)addy
  27. 360 new
  28. 370 tab(objectstart=$7b00
  29. 380 +objectstart
  30. 390 usrobjectstart
  31. 400 tab(lasthigh=$96
  32. 410 ;
  33. 420 ;
  34. 430 ;
  35. 440 ; install/init
  36. 450 ;==============================
  37. 460 ;
  38. 470 install mid$#<(fullinit)
  39. 480  (NULL)$8000
  40. 490  (NULL)$84d0
  41. 500  (NULL)$2b
  42. 510  mid$#>(fullinit)
  43. 520  (NULL)$8001
  44. 530  (NULL)$84d2
  45. 540  (NULL)$9fb8
  46. 550  (NULL)$82e6
  47. 560  (NULL)$2c
  48. 570  peek#<(init)
  49. 580  (NULL)$9fb7
  50. 590  (NULL)
  51. 600  (NULL)$82e5
  52. 610  pclose$84aa,$60
  53. 620  (NULL)$8534
  54. 630 ;
  55. 640  peek#>(setpge)
  56. 650  pclose$9959,<(setpge)
  57. 660  (NULL)$995a
  58. 670  pclose$94d4,<(set4)
  59. 680  (NULL)$971e
  60. 690  (NULL)$94d5
  61. 700  (NULL)$971f
  62. 710  pclose$82c9,<(acheck-1)
  63. 720  (NULL)$82ca
  64. 730  pclose$9f72,>(irq)
  65. 740  pclose$9f75,<(irq)
  66. 750  peek#0
  67. 760  mid$insttext,x
  68. 770  (NULL)*+8
  69. 780  (NULL)$ffd2
  70. 790  (NULL)
  71. 800  (NULL)*-9
  72. 810  (NULL)$2d
  73. 820  (NULL)$33
  74. 830  pclose$2e,$a0
  75. 840  pclose$34,$7b
  76. 850  (NULL)($0302)
  77. 860 ;
  78. 870 insttext
  79. 880 not"[147]save
  80. 890 [165]$22
  81. 900 [168]"giga-ass  +sedit
  82. 910 fn$22
  83. 920 not",8"
  84. 930 ;
  85. 940 ;
  86. 950 +objectstart+$a0
  87. 960 ;
  88. 970 ;
  89. 980 fullinit (NULL)$849d
  90. 990 ;
  91. 1000 init (NULL)
  92. 1010  peek#1
  93. 1020  (NULL)irqflag
  94. 1030  (NULL)
  95. 1040  (NULL)$d4
  96. 1050  peek#$f3
  97. 1060  (NULL)
  98. 1070  (NULL)$84ab;g-init!
  99. 1080  mid$#<(text)
  100. 1090  len#>(text);text
  101. 1100  (NULL)$ab1e;output
  102. 1110  (NULL)$a644;new
  103. 1120  (NULL)$94ba
  104. 1130  pclose$cf,0
  105. 1140  pclose$dc0d,$81
  106. 1150  mid$#%00000100
  107. 1160  (NULL)$028d
  108. 1170  (NULL)*+5
  109. 1180  (NULL)aload
  110. 1190  (NULL)$8537;cont init
  111. 1200 ;
  112. 1210 ;
  113. 1220 ;
  114. 1230 ; irq-routine + keycheck
  115. 1240 ;==============================
  116. 1250 ;
  117. 1260 irq pclose$dc0d,1
  118. 1270  mid$irqflag
  119. 1280  (NULL)nkjmp
  120. 1290 ;
  121. 1300 key peek$c5
  122. 1310  tan#64
  123. 1320  (NULL)key1
  124. 1330  pclosefflag,0
  125. 1340 nkjmp (NULL)nokey
  126. 1350 ;
  127. 1360 key1 mid$#%00000100
  128. 1370  (NULL)$028d
  129. 1380  (NULL)fkey
  130. 1390 ;
  131. 1400 ;
  132. 1410 ckey (NULL)
  133. 1420  len#6
  134. 1430  str$keytab,y
  135. 1440  (NULL)ckey2
  136. 1450  (NULL)
  137. 1460  (NULL)*-6
  138. 1470  (NULL)gfkey
  139. 1480 ckey2 mid$jumptab2,y
  140. 1490  (NULL)
  141. 1500  mid$jumptab1,y
  142. 1510  (NULL)
  143. 1520  (NULL)
  144. 1530 ;
  145. 1540 downjump (NULL)down
  146. 1550 upjump (NULL)up
  147. 1560 ;
  148. 1570 fkey tan#4;f1
  149. 1580  (NULL)upjump
  150. 1590  tan#3;f7
  151. 1600  (NULL)downjump
  152. 1610  tan#6;f5
  153. 1620  (NULL)mnetab
  154. 1630  tan#5;f3
  155. 1640  (NULL)nkjmp
  156. 1650 ;
  157. 1660 ;
  158. 1670 ; tabulator
  159. 1680 ;===============================
  160. 1690 ;
  161. 1700 latab (NULL)charnorm
  162. 1710  len#$05
  163. 1720  (NULL)$e50e
  164. 1730  (NULL)mnetab2
  165. 1740 ;
  166. 1750 mnetab (NULL)charnorm
  167. 1760  mid$$033e
  168. 1770  (NULL)
  169. 1780  val#$05
  170. 1790  (NULL)
  171. 1800  (NULL)$e50e
  172. 1810 mnetab2 (NULL)endirq
  173. 1820 ;
  174. 1830 ;
  175. 1840 ;
  176. 1850 ; cursor home / 25th pos
  177. 1860 ;================================
  178. 1870 ;
  179. 1880 home (NULL)charnorm
  180. 1890  (NULL)$e566
  181. 1900 home2 (NULL)nokey
  182. 1910 ;
  183. 1920 thpos (NULL)charnorm
  184. 1930  peek#24
  185. 1940  len#0
  186. 1950  (NULL)$e50c
  187. 1960  (NULL)home2
  188. 1970 ;
  189. 1980 ;
  190. 1990 ; screen-edit (r,s,l,c)
  191. 2000 ;===============================
  192. 2010 ;
  193. 2020 save
  194. 2030  (NULL)getnumber
  195. 2040  mid$$14
  196. 2050  (NULL)savead
  197. 2060  mid$$15
  198. 2070  (NULL)savead+1
  199. 2080  (NULL)$e513
  200. 2090  (NULL)xypos
  201. 2100  (NULL)xypos+1
  202. 2110  (NULL)endirq
  203. 2120 ;
  204. 2130 ;
  205. 2140 load (NULL)checkold
  206. 2150  (NULL)lend
  207. 2160  (NULL)
  208. 2170  (NULL)load2
  209. 2180 lend (NULL)endirq
  210. 2190 ;
  211. 2200 ;
  212. 2210 aload (NULL)
  213. 2220  mid$#$ff
  214. 2230  len#1
  215. 2240  (NULL)&$2b,y
  216. 2250  (NULL)$a533
  217. 2260  peek$23
  218. 2270  mid$$22
  219. 2280  (NULL)
  220. 2290  val#2
  221. 2300  (NULL)*+3
  222. 2310  (NULL)
  223. 2320  (NULL)$2d
  224. 2330  (NULL)$2e
  225. 2340  (NULL)$a660
  226. 2350  (NULL)
  227. 2360  (NULL)load2
  228. 2370  pclose$cf,0
  229. 2380  (NULL)
  230. 2390  (NULL)$a47b
  231. 2400 ;
  232. 2410 ;
  233. 2420 rebulid
  234. 2430  (NULL)checkold
  235. 2440  (NULL)rend
  236. 2450  (NULL)getnumber
  237. 2460  (NULL)savepos
  238. 2470  (NULL)r2
  239. 2480  (NULL)loadpos
  240. 2490 rend (NULL)endirq
  241. 2500 ;
  242. 2510 ;
  243. 2520 swap (NULL)checkold
  244. 2530  (NULL)send
  245. 2540  (NULL)getnumber
  246. 2550  mid$$14
  247. 2560  (NULL)
  248. 2570  mid$$15
  249. 2580  (NULL)
  250. 2590  mid$$d6
  251. 2600  (NULL)
  252. 2610  mid$$d3
  253. 2620  (NULL)
  254. 2630  (NULL)
  255. 2640  (NULL)load2
  256. 2650  (NULL)
  257. 2660  (NULL)xypos
  258. 2670  (NULL)
  259. 2680  (NULL)xypos+1
  260. 2690  (NULL)
  261. 2700  (NULL)savead+1
  262. 2710  (NULL)
  263. 2720  (NULL)savead
  264. 2730 send (NULL)endirq
  265. 2740 ;
  266. 2750 ; subroutinen
  267. 2760 ;
  268. 2770 load2 (NULL)nl
  269. 2780  mid$#$ea
  270. 2790  fn$2c
  271. 2800 nl mid$#$2c
  272. 2810  (NULL)anl
  273. 2820  mid$savead
  274. 2830  (NULL)$14
  275. 2840  mid$savead+1
  276. 2850  (NULL)$15
  277. 2860  (NULL)r2
  278. 2870  (NULL)endlo
  279. 2880  lenxypos
  280. 2890  peekxypos+1
  281. 2900 anl fn$2c
  282. 2910  len#0
  283. 2920  (NULL)$e50c
  284. 2930 endlo (NULL)
  285. 2940 ;
  286. 2950 r2 (NULL)charnorm
  287. 2960  pclose$c7,0
  288. 2970  (NULL)$d4
  289. 2980  (NULL)$a613;calc addy
  290. 2990  len#$01
  291. 3000  mid$($5f),y
  292. 3010  (NULL)endreb
  293. 3020 r3 mid$#147;clrscr
  294. 3030  fn$2c
  295. 3040 rloop mid$#13;cr
  296. 3050  (NULL)$ffd2
  297. 3060  (NULL)$9a44;'?'-line
  298. 3070  (NULL)searchnex
  299. 3080  (NULL)endreb-2
  300. 3090  mid$$d6
  301. 3100  str$#24;last l.?
  302. 3110  (NULL)rloop
  303. 3120  (NULL)
  304. 3130  fn$24
  305. 3140 endreb (NULL)
  306. 3150  (NULL)
  307. 3160 ;
  308. 3170 ; get highest / lowest lines
  309. 3180 ;===============================
  310. 3190 ;
  311. 3200 get (NULL)charnorm
  312. 3210  (NULL)checkold
  313. 3220  (NULL)endget
  314. 3230  (NULL)savepos
  315. 3240  mid$$2b
  316. 3250  (NULL)$5f
  317. 3260  mid$$2c
  318. 3270  (NULL)$60
  319. 3280  (NULL)cl25th
  320. 3290  (NULL)
  321. 3300  (NULL)printline
  322. 3310  peek$2e
  323. 3320  mid$$2d
  324. 3330  (NULL)
  325. 3340  (NULL)#$02
  326. 3350  (NULL)*+3
  327. 3360  (NULL)
  328. 3370  (NULL)$60
  329. 3380  (NULL)$5f
  330. 3390  (NULL)searchbac
  331. 3400  (NULL)cl1st
  332. 3410  (NULL)
  333. 3420  (NULL)printline
  334. 3430  (NULL)loadpos
  335. 3440 endget (NULL)endirq
  336. 3450 ;
  337. 3460 ;
  338. 3470 ;
  339. 3480 ; scrollen - hochwaerts
  340. 3490 ;===============================
  341. 3500 ;
  342. 3510 up
  343. 3520  (NULL)getnumber
  344. 3530  (NULL)$a613;line>addy
  345. 3540  (NULL)savepos
  346. 3550 ;
  347. 3560 up1 mid$$5f;check
  348. 3570  str$$2b;last
  349. 3580  (NULL)up2;line
  350. 3590  mid$$60
  351. 3600  str$$2c
  352. 3610  (NULL)up2
  353. 3620  (NULL)udend
  354. 3630 ;
  355. 3640 up2 (NULL)searchbac
  356. 3650 scrollu peek#$ff;scroll
  357. 3660 u1 mid$$06c0,x
  358. 3670  (NULL)$06e8,x
  359. 3680  (NULL)
  360. 3690  (NULL)u1
  361. 3700  mid$$06c0
  362. 3710  (NULL)$06e8
  363. 3720  (NULL)
  364. 3730 u2 mid$$05c0,x
  365. 3740  (NULL)$05e8,x
  366. 3750  (NULL)
  367. 3760  (NULL)u2
  368. 3770  mid$$05c0
  369. 3780  (NULL)$05e8
  370. 3790  (NULL)
  371. 3800 u3 mid$$04c0,x
  372. 3810  (NULL)$04e8,x
  373. 3820  (NULL)
  374. 3830  (NULL)u3
  375. 3840  mid$$04c0
  376. 3850  (NULL)$04e8
  377. 3860  peek#$c0
  378. 3870 u4 mid$$03ff,x
  379. 3880  (NULL)$0427,x
  380. 3890  (NULL)
  381. 3900  (NULL)u4
  382. 3910  (NULL)cl1st
  383. 3920  peek#$17
  384. 3930 copy1 mid$$da,x
  385. 3940  asc#$7f
  386. 3950  len$d9,x
  387. 3960  (NULL)*+4
  388. 3970  (NULL)#$80
  389. 3980  (NULL)$da,x
  390. 3990  (NULL)
  391. 4000  (NULL)copy1
  392. 4010  mid$$d9
  393. 4020  (NULL)#$80
  394. 4030  (NULL)$d9
  395. 4040 ;
  396. 4050  pclose$d4,0
  397. 4060  (NULL)
  398. 4070  (NULL)printline
  399. 4080 ;
  400. 4090  pclose$dc00,$fe
  401. 4100  mid$#%00010000
  402. 4110  (NULL)$dc01
  403. 4120  (NULL)up3
  404. 4130  (NULL)up1;again
  405. 4140 up3 (NULL)udend
  406. 4150 ;
  407. 4160 ;
  408. 4170 ;
  409. 4180 ; scrollen - runterwaerts
  410. 4190 ;===============================
  411. 4200 ;
  412. 4210 ;
  413. 4220 down
  414. 4230  (NULL)savepos
  415. 4240  (NULL)checkold
  416. 4250  (NULL)down3
  417. 4260  peek#$c0
  418. 4270  len#$07
  419. 4280  (NULL)getnumber+4
  420. 4290  (NULL)$a613;line>addy
  421. 4300  len#$01
  422. 4310  mid$($5f),y
  423. 4320  (NULL)down3
  424. 4330 ;
  425. 4340 down2 (NULL)searchnex
  426. 4350  (NULL)scrolld
  427. 4360 down3 (NULL)udend
  428. 4370 ;
  429. 4380 scrolld peek#0;scroll
  430. 4390 d1 mid$$0428,x
  431. 4400  (NULL)$0400,x
  432. 4410  (NULL)
  433. 4420  (NULL)d1
  434. 4430 d2 mid$$0528,x
  435. 4440  (NULL)$0500,x
  436. 4450  (NULL)
  437. 4460  (NULL)d2
  438. 4470 d3 mid$$0628,x
  439. 4480  (NULL)$0600,x
  440. 4490  (NULL)
  441. 4500  (NULL)d3
  442. 4510  peek#$40
  443. 4520 d4 mid$$06e8,x
  444. 4530  (NULL)$06c0,x
  445. 4540  (NULL)
  446. 4550  (NULL)d4
  447. 4560  (NULL)cl25th
  448. 4570  peek#$00
  449. 4580 copy2 mid$$d9,x
  450. 4590  asc#$7f
  451. 4600  len$da,x
  452. 4610  (NULL)*+4
  453. 4620  (NULL)#$80
  454. 4630  (NULL)$d9,x
  455. 4640  (NULL)
  456. 4650  tan#$18
  457. 4660  (NULL)copy2
  458. 4670  mid$$f1
  459. 4680  (NULL)#$80
  460. 4690  (NULL)$f1
  461. 4700 ;
  462. 4710  pclose$d4,0
  463. 4720  (NULL)
  464. 4730  (NULL)printline
  465. 4740 ;
  466. 4750  pclose$dc00,$fe
  467. 4760  mid$#%00001000
  468. 4770  (NULL)$dc01
  469. 4780  (NULL)udend
  470. 4790  (NULL)down2;again
  471. 4800 ;
  472. 4810 udend (NULL)loadpos
  473. 4820 ;
  474. 4830 ;
  475. 4840 endirq pclose$c6,0
  476. 4850  (NULL)$d4
  477. 4860 nokey (NULL)
  478. 4870  pclose$dc0d,$81
  479. 4880  (NULL)$ea81
  480. 4890 ;
  481. 4900 ;
  482. 4910 ;
  483. 4920 ; get number
  484. 4930 ;==============================
  485. 4940 ;
  486. 4950 getnumber peek#$00
  487. 4960  len#$04
  488. 4970  (NULL)$7a
  489. 4980  (NULL)$7b
  490. 4990  (NULL)charnorm
  491. 5000  pclose$0300,<(error)
  492. 5010  pclose$0301,>(error)
  493. 5020  (NULL)
  494. 5030  (NULL)error+1
  495. 5040 ;
  496. 5050  (NULL)$ad8a
  497. 5060  (NULL)$b7f7
  498. 5070 ;
  499. 5080 erron pclose$0300,$44
  500. 5090  pclose$0301,$85
  501. 5100  (NULL)
  502. 5110 ;
  503. 5120 error peek#$f3
  504. 5130  (NULL)
  505. 5140  (NULL)
  506. 5150  (NULL)
  507. 5160  (NULL)erron
  508. 5170  (NULL)endirq
  509. 5180 ;
  510. 5190 ;
  511. 5200 ;
  512. 5210 ; line-print (c=1 / p=24)
  513. 5220 ;===============================
  514. 5230 ;
  515. 5240 savepos (NULL)$e513
  516. 5250  (NULL)loadpos+1
  517. 5260  (NULL)loadpos+3
  518. 5270  (NULL)
  519. 5280 ;
  520. 5290 printline len#$00
  521. 5300  (NULL)*+5
  522. 5310  peek#$00
  523. 5320  fn$2c
  524. 5330  peek#24
  525. 5340  (NULL)$e50c
  526. 5350  (NULL)$9a44
  527. 5360 ;
  528. 5370 loadpos len#$00
  529. 5380  peek#$00
  530. 5390  (NULL)$e50c
  531. 5400 ;
  532. 5410 ;
  533. 5420 ;
  534. 5430 ; search prev. / next line
  535. 5440 ;===============================
  536. 5450 ;
  537. 5460 searchbac mid$$60;search
  538. 5470  (NULL)lasthigh;previous
  539. 5480  chr$$60;line
  540. 5490  len#$fe
  541. 5500 search mid$($5f),y
  542. 5510  (NULL)found
  543. 5520 search2 (NULL)
  544. 5530  (NULL)search
  545. 5540 ;
  546. 5550 found (NULL)
  547. 5560  mid$($5f),y
  548. 5570  str$$5f
  549. 5580  (NULL)found2
  550. 5590  (NULL)
  551. 5600  (NULL)search2
  552. 5610 ;
  553. 5620 found2 (NULL)
  554. 5630  mid$($5f),y
  555. 5640  str$lasthigh
  556. 5650  (NULL)found3
  557. 5660  (NULL)
  558. 5670  (NULL)
  559. 5680  (NULL)search2
  560. 5690 ;
  561. 5700 found3 (NULL)
  562. 5710  (NULL)
  563. 5720  (NULL)
  564. 5730  val$5f
  565. 5740  (NULL)*+4
  566. 5750  right$$60
  567. 5760  (NULL)$5f
  568. 5770  (NULL)
  569. 5780 ;
  570. 5790 ;
  571. 5800 searchnex len#$00;search
  572. 5810  mid$($5f),y;next
  573. 5820  (NULL);line
  574. 5830  (NULL)
  575. 5840  mid$($5f),y
  576. 5850  (NULL)$5f
  577. 5860  (NULL)$60
  578. 5870  mid$($5f),y
  579. 5880  (NULL)
  580. 5890 ;                   close
  581. 5900 ;                   close
  582. 5910 ;
  583. 5920 ; verschiedene unterprogramme
  584. 5930 ;===============================
  585. 5940 ;
  586. 5950 cl25th mid$#32;clear
  587. 5960  peek#$27;25th
  588. 5970  (NULL)$07c0,x;line
  589. 5980  (NULL)
  590. 5990  (NULL)*-4
  591. 6000  (NULL)
  592. 6010 ;
  593. 6020 cl1st mid$#32;clear
  594. 6030  peek#$27;1st
  595. 6040  (NULL)$0400,x;line
  596. 6050  (NULL)
  597. 6060  (NULL)*-4
  598. 6070 clrts (NULL)
  599. 6080 ;
  600. 6090 ;
  601. 6100 ;
  602. 6110 charnorm mid$$cf;char in
  603. 6120  (NULL)clrts;normal-
  604. 6130  mid$$ce;zustand
  605. 6140  peek$0287
  606. 6150  len#$00
  607. 6160  (NULL)$cf
  608. 6170  (NULL)$ea13
  609. 6180 ;
  610. 6190 ;
  611. 6200 ;
  612. 6210 gfkey tan#$03; f-key
  613. 6220  (NULL)gfend; check
  614. 6230  tan#$07
  615. 6240  (NULL)gfend
  616. 6250  lenfflag
  617. 6260  (NULL)gfend
  618. 6270  (NULL)
  619. 6280  (NULL)
  620. 6290  (NULL)
  621. 6300  mid$#1
  622. 6310  (NULL)$028d;shift
  623. 6320  (NULL)*+7
  624. 6330  mid$ftab+4,x;mit
  625. 6340  (NULL)*+5
  626. 6350  mid$ftab,x;ohne
  627. 6360  (NULL)$0277
  628. 6370  mid$#13
  629. 6380  (NULL)$0277+1
  630. 6390  peek#$02
  631. 6400  (NULL)$c6
  632. 6410  (NULL)fflag
  633. 6420 gfend (NULL)nokey
  634. 6430 ;
  635. 6440 ;
  636. 6450 ;
  637. 6460 checkold mid$$2c
  638. 6470  str$$2e
  639. 6480  (NULL)*+9
  640. 6490  mid$$2d
  641. 6500  (NULL)
  642. 6510  (NULL)$2b
  643. 6520  str$#$02
  644. 6530  (NULL)
  645. 6540 ;
  646. 6550 ;
  647. 6560 ;
  648. 6570 set4 mid$#0; $94d3
  649. 6580  (NULL)irqflag;+$971d
  650. 6590  (NULL)$a560
  651. 6600  mid$#1
  652. 6610  (NULL)irqflag
  653. 6620  (NULL)
  654. 6630 setpge peek#$00
  655. 6640  (NULL)$0340
  656. 6650  (NULL)$0350
  657. 6660  (NULL)
  658. 6670  (NULL)$0360
  659. 6680  (NULL)$0370
  660. 6690  (NULL)$8537
  661. 6700 acheck len$033d
  662. 6710  (NULL)*+5
  663. 6720  right$$033d
  664. 6730  len$033b
  665. 6740  (NULL)
  666. 6750  (NULL)$02fe
  667. 6760  (NULL)$974f
  668. 6770 ;
  669. 6780 ;
  670. 6790 ;
  671. 6800 ; positionsspeicher, text ....
  672. 6810 ;================================
  673. 6820 ;
  674. 6830 fflag
  675. 6840 fn0
  676. 6850 ;
  677. 6860 irqflag
  678. 6870 fn0
  679. 6880 ;
  680. 6890 savead
  681. 6900 spc(0
  682. 6910 xypos
  683. 6920 spc(0
  684. 6930 ;
  685. 6940 ftab
  686. 6950 not"iexl
  687. 6960 [168]"@byo
  688. 6970 ;
  689. 6980 text
  690. 6990 not"__* giga-scrolledit v2_
  691. 7000 [168]"* by christian thrum
  692. 7010 not" 1993_"
  693. 7020 ;
  694. 7030 jumptab1
  695. 7040 fn<(save-1),<(load-1)
  696. 7050 fn<(rebulid-1),<(get-1)
  697. 7060 fn<(thpos-1),<(home-1)
  698. 7070 fn<(swap-1)
  699. 7080 ;
  700. 7090 jumptab2
  701. 7100 fn>(save-1),>(load-1)
  702. 7110 fn>(rebulid-1),>(get-1)
  703. 7120 fn>(thpos-1),>(home-1)
  704. 7130 fn>(swap-1)
  705. 7140 keytab
  706. 7150 fn13,42,17,26,7,2,20
  707. 7160 ;
  708. 7170 ;
  709. 7180 ; ===============================
  710. 7190 ;
  711. 7200 ; yo! this is the way we go ....
  712. 7210 ;
  713. 7220 ;       giga-scrolledit v2
  714. 7230 ;    coded by christian thrum
  715. 7240 ;    (skywalker of sunbeam !)
  716. 7250 ;              close
  717. 7260 ;              close
  718. 7270 ;              close
  719. 7280 ; ortantan^
  720. 7290 ; (NULL)ortanexp
  721. 7300 ; (NULL)/tan^
  722. 7310 ; /tan^(NULL)unbeam productions 1993
  723. 7320 ; ortanexp(NULL)
  724. 7330 ; /tantanexp
  725. 7340 ;
  726.